#!/usr/bin/perl

my $triads  = shift; #число триад
my $outFile = shift; #выходной файл

my @triad; #массив триад
for my $t (1 .. $triads){
	my $k = 3*($t-1);
	my @pair ;
	push @pair,  1+$k, 3+$k;
	push @triad, [@pair];
};
open(OUT, ">$outFile") or die "Невозможно открыть файл $outFile для вывода $!\n";
for my $t (1..3*$triads){
	print OUT "$t\n";
}

print OUT ' ####'."\n";

foreach my $pair (@triad){
	for my $k ($pair->[0] .. $pair->[1]){
		for my $left ( 1 .. $pair->[0]-1){
			print OUT "$k $left\n";
		}
		for my $right ( $pair->[1]+1 .. 3*$triads ){
			print OUT "$k $right\n";
		}
	}
};
